home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 5 / Amiga Tools 5.iso / tools / dfÜ / bbs / aptbbs1 / apt-bbs < prev    next >
Encoding:
Text File  |  1995-12-07  |  6.1 KB  |  240 lines
  1. (set vernum (getversion "libs:version.library"))
  2. (set ver (/ vernum 65536))
  3.  
  4. (set is_update 0)
  5. (set apt-dest (getassign "APT" "a"))
  6. (complete 0)
  7.  
  8. (if apt-dest
  9.    (
  10.       (set @default-dest apt-dest)
  11.       (set is_update 
  12.          (askbool
  13.             (prompt 
  14.                "Your current APT assignment appears to be located in the drawer named \""
  15.                apt-dest
  16.                "\".\n\n  Do you want these update files installed in that drawer?"
  17.             )
  18.             (help
  19.                "The logical assignment \"APT:\" is present on your system"
  20.                "If you would like this version placed elsewhere, please select"
  21.                "NO.  Otherwise, select YES to install APT there."
  22.             )
  23.             (default 1)
  24.          )
  25.       )
  26.    )
  27. )
  28.  
  29. (if (= is_update 0)
  30.    (
  31.       (set apt-dest
  32.          (tackon 
  33.             (askdir
  34.                (prompt "In which disk or drawer should APT be installed?")
  35.                (help @askdir-help)
  36.                (default @default-dest)
  37.             )
  38.             "APT"
  39.          )
  40.       )
  41.       (makedir apt-dest (infos))
  42.       (set @default-dest apt-dest)
  43.       (makeassign "APT" apt-dest)
  44.  
  45.       (copyfiles
  46.          (source "APT")
  47.          (dest apt-dest)
  48.          (all)
  49.       )
  50.    )
  51. )
  52.  
  53. (complete 90)
  54.  
  55. (if (not (exists "Devs:ApT-Mountlist"))
  56.    (copyfiles
  57.       (source "Devs/ApT-Mountlist")
  58.       (dest "DEVS:")
  59.    )
  60.    (copyfiles
  61.       (source "Devs/ApT-Mountlist")
  62.       (dest "DEVS:")
  63.       (prompt "ApT-Mountlist already exists!  - Overwrite it?")
  64.       (help "Unless you have modified your old ApT-Mountlist file, it is ok to overwrite it.")
  65.       (confirm)
  66.    )
  67.  
  68. )
  69.  
  70. (complete 91)
  71.  
  72. (if (not (exists "L:ApT-Handler"))
  73.    (copyfiles
  74.       (source "L/ApT-Handler")
  75.       (dest "L:")
  76.    )
  77.    (copyfiles
  78.       (source "L/ApT-Handler")
  79.       (dest "L:")
  80.       (prompt "ApT-Handler already exists!  - Overwrite it?")
  81.       (help "If you are updating from an APT-BBS version earlier than 0.98"
  82.       " you will have to overwrite it by proceeding with the copy.")
  83.       (confirm)
  84.    )
  85.  
  86. )
  87.  
  88. (complete 92)
  89.  
  90. (if (not (exists "Libs:aptbbs.library"))
  91.    (copyfiles
  92.       (source "Libs/aptbbs.library")
  93.       (dest "LIBS:")
  94.    )
  95.    (copyfiles
  96.       (source "Libs/aptbbs.library")
  97.       (dest "LIBS:")
  98.       (prompt "This library file already exists!\nOverwrite it?\n"
  99.       "\nSelect the HELP button for more information.")
  100.       (help "If you are updating from an APT-BBS version earlier than"
  101.       " 0.98 then you SHOULD overwrite the old version.")
  102.       (confirm)
  103.    )
  104. )
  105.  
  106. (complete 93)
  107.  
  108. (if (not (exists "Libs:ApTContext.library"))
  109.    (copyfiles
  110.       (source "Libs/ApTContext.library")
  111.       (dest "LIBS:")
  112.    )
  113.    (copyfiles
  114.       (source "Libs/ApTContext.library")
  115.       (dest "LIBS:")
  116.       (prompt "This library file already exists!\nOverwrite it?\n"
  117.       "\nSelect the HELP button for more information.")
  118.       (help "If you are updating from an APT-BBS version earlier than"
  119.       " 0.98 then you SHOULD overwrite the old version.")
  120.       (confirm)
  121.    )
  122. )
  123.  
  124. (complete 94)
  125.  
  126. (if (not (exists "Libs:ApTControl.library"))
  127.    (copyfiles
  128.       (source "Libs/ApTControl.library")
  129.       (dest "LIBS:")
  130.    )
  131.    (copyfiles
  132.       (source "Libs/ApTControl.library")
  133.       (dest "LIBS:")
  134.       (prompt "This library file already exists!\nOverwrite it?\n"
  135.       "\nSelect the HELP button for more information.")
  136.       (help "If you are updating from an APT-BBS version earlier than"
  137.       " 0.98 then you SHOULD overwrite the old version.")
  138.       (confirm)
  139.    )
  140. )
  141.  
  142. (complete 95)
  143.  
  144. (if (not (exists "Libs:ApTGlobal.library"))
  145.    (copyfiles
  146.       (source "Libs/ApTGlobal.library")
  147.       (dest "LIBS:")
  148.    )
  149.    (copyfiles
  150.       (source "Libs/ApTGlobal.library")
  151.       (dest "LIBS:")
  152.       (prompt "This library file already exists!\nOverwrite it?\n"
  153.       "\nSelect the HELP button for more information.")
  154.       (help "If you are updating from an APT-BBS version earlier than"
  155.       " 0.98 then you SHOULD overwrite the old version.")
  156.       (confirm)
  157.    )
  158. )
  159.  
  160. (complete 96)
  161.  
  162. (if (not (exists "Libs:ApTMap.library"))
  163.    (copyfiles
  164.       (source "Libs/ApTMap.library")
  165.       (dest "LIBS:")
  166.    )
  167.    (copyfiles
  168.       (source "Libs/ApTMap.library")
  169.       (dest "LIBS:")
  170.       (prompt "This library file already exists!\nOverwrite it?\n"
  171.       "\nSelect the HELP button for more information.")
  172.       (help "If you are updating from an APT-BBS version earlier than"
  173.       " 0.98 then you SHOULD overwrite the old version.")
  174.       (confirm)
  175.    )
  176. )
  177.  
  178. (complete 97)
  179.  
  180. (if (not (exists "S:startAPT"))
  181.    (copyfiles
  182.       (source "S/startAPT")
  183.       (dest "S:")
  184.    )
  185.    (copyfiles
  186.       (source "S/startAPT")
  187.       (dest "S:")
  188.       (prompt "Your S:startAPT script already exists!\n  - Overwrite it?\n"
  189.       "Select HELP button for more info.")
  190.       (help "You probably should not overwrite your pre-existing startAPT"
  191.       " script as you will lose whatever changes you made to any device "
  192.       "assignments or similar personal modifications.\n\nHowever you are strongly"
  193.       " urged to compare the new startAPT script with your old one and modify"
  194.       " your original script wherever necessary to get full functionality from"
  195.       " APT-BBS V0.98")
  196.       (confirm)
  197.    )
  198. )
  199.  
  200. (if (exists "S:startAPT")
  201.   (protect "S:startAPT"
  202.       ("+s")
  203.   )
  204. )
  205.  
  206. (if (not (exists "S:FMan.Config"))
  207.    (copyfiles
  208.       (source "S/FMan.Config")
  209.       (dest "S:")
  210.    )
  211.    (copyfiles
  212.       (source "S/FMan.Config")
  213.       (dest "S:")
  214.       (prompt "Your S:FMan.Config script already exists!\n  - Overwrite it?\n"
  215.       "Select HELP button for more info.")
  216.       (help "You probably should not overwrite your pre-existing FMan.Config"
  217.       " script as you will lose whatever changes you made to any device "
  218.       "assignments or similar personal modifications.\n\nHowever you are strongly"
  219.       " urged to check out your Fmanager settings and check that File Paths"
  220.       " and similar details suit this APT-BBS set-up.\n\n"
  221.       "NOTE: This installation is intended for NEW ApT-BBS Sysops. People running"
  222.       " older versions of ApT-BBS should contact a support site for updates "
  223.       "to the main executables only.")
  224.       (confirm)
  225.    )
  226.  
  227. )
  228.  
  229. (complete 98)
  230.  
  231. (copyfiles
  232.    (source "Fonts")
  233.    (dest "Fonts:")
  234.    (all)
  235. )
  236.  
  237. (complete 100)
  238.  
  239. (exit)
  240.